10 REM **********************
20 REM *       SPd       *
30 REM *                    *
40 REM *         BY         *
50 REM *                    *
60 REM *       M.BUHTZ      *
70 REM *                    *
80 REM *  TEL.: 0281/22431  *
90 REM **********************
100 RUN110
110 REM  *** NATUERLICHE SPdFUNKTION ***
120 :
130 REM EINGABEMENUE
140 :
150 PRINT"[147]              EINGABEMENUE              [146]"
160 PRINT:PRINT:PRINT:PRINTSPC(15)"KEY     (1)"
170 PRINT:PRINT:PRINTSPC(15)"TAPE     "
180 PRINT:PRINTSPC(15)"GRAPHIC (2)"
190 PRINTSPC(15)"D-FILE  (3)"
200 PRINT:PRINT:PRINTSPC(15)"DISK     "
210 PRINT:PRINTSPC(15)"GRAPHIC (4)"
220 PRINTSPC(15)"D-FILE  (5)"
230 PRINT:PRINT:PRINTSPC(15)"FKT-SPL (6)"
240 GETA$:A=VAL(A$):ON A GOTO 380,3560,4550,3570,4560,4930:GOTO240
250 :
260 REM AUSGABEMENUE
270 :
280 PRINT"[147]            AUSGABEMENUE                [146]"
290 PRINT:PRINT:PRINTSPC(12)"NEW      (1)"
300 PRINT:PRINT:PRINT:PRINTSPC(12)"TAB      (2)"
310 PRINT:PRINTSPC(14)"COPY   (3)"
320 PRINT:PRINT:PRINT:PRINTSPC(12)"GRAPH    (4)"
330 PRINT:PRINTSPC(14)"OLD    (5)"
340 PRINT:PRINTSPC(14)"COPY   (6)"
350 PRINT:PRINTSPC(14)"TAPE   (7)"
360 PRINT:PRINTSPC(14)"DISK   (8)"
370 GETA$:A=VAL(A$):ON A GOTO  100,930,3380,1230,2570,2540,3890,3900:GOTO370
380 :
390 REM EINGABE KEY
400 :
410 PRINT"[147]            EINGABE KEY                 [146]"
420 PRINT:PRINT:INPUT"  ANZAHL DER KURVEN";AK$
430 IFAK$="_"THEN150
440 AK=VAL(AK$)
450 IFAK=0THEN420
460 PRINT:PRINT:INPUT"  ANZAHL DER INT.POL.SCHRITTE";SW$
470 IFSW$="_"THEN420
480 SW=VAL(SW$)
490 IFSW=0THEN460
500 PRINT:PRINT
510 FORI=1TOAK
520 PRINT:PRINT"  KURVE"I"[146]"
530 PRINT:PRINT:INPUT"  ANZAHL DER STUETZSTELLEN";N1$(I)
540 IFN1$(I)="_"THEN460
550 N1(I)=VAL(N1$(I))
560 IFN1(I)>=3THEN590
570 PRINT:PRINT:PRINT"  FEHLER!"
580 PRINT:PRINT"  MINIMALE ANZAHL STUETZSTELLEN =3!":GOTO530
590 IFN1(I)>N1THENN1=N1(I)
600 NEXTI
610 PRINT:PRINT:PRINT"  EINGABE O.K. ?  (J/N)"
620 GETA$
630 IFA$="N"THEN410
640 IFA$="J"THEN660
650 GOTO620
660 N1=N1+1
670 DIMX(AK,N1),Y(AK,N1),SW(AK,N1)
680 DIMA(N1),C(N1),B(N1),D(N1),H(N1),M(N1,N1),V(N1),O(N1),P(N1),Q(N1)
690 FORI=1TOAK
700 PRINT"[147]         EINGABE STUETZSTELLEN          [146]"
710 PRINT:PRINT:PRINT"  KURVE"I"[146]"
720 FORJ=1TON1(I)
730 IFJ<=0THEN690
740 PRINT"  X("J"), Y("J")"
750 INPUT"  ";X$(I,J),Y(I,J)
760 IFX$(I,J)="_"THENJ=J-2:NEXTJ
770 X(I,J)=VAL(X$(I,J))
780 DE=SW*(N1(I)-1)+N1(I)
790 IFDE>DITHENDI=DE
800 NEXTJ
810 GOSUB4160
820 FORJ=2TON1(I)
830 SW(I,J-1)=(X(I,J)-X(I,J-1))/SW
840 NEXTJ
850 PRINT:PRINT:PRINT"  ABSPEICHERN ?  (J/N)"
860 GETA$:IFA$="N"THEN890
870 IFA$="J"THEN4320
880 GOTO860
890 NEXTI
900 DIMZ(DI+3),T(DI+3)
910 GOTO260
920 :
930 REM TABELLE
940 :
950 :
960 FORK=1TOAK:G=0:N=N1(K):E6=1
970 GOSUB4100:GOSUB2610:J=0
980 PRINT"[147]                KURVE"K"[157]                 [146]"
990 FORL=1TON1(K):PRINT
1000 A1=INT(A(L)*100+.5)/100:B1=INT(B(L)*100+.5)/100:C1=INT(C(L)*100+.5)/100
1010 D1=INT(D(L)*100+.5)/100
1020 PRINT"SPL[157]"L"[157]: Y="A1"[146][157]+"B1"[146][157]*X+"C1"[146][157]*X^2+"D1"[146][157]*X^3"
1030 NEXTL
1040 IFPEEK(203)<>60THEN1040
1050 PRINT"[147] KURVE"K"[157]      X             Y           [146]"
1060 FORI=1TO21
1070 IFI+J>GTHEN1160
1080 ZA=ABS(Z(I+J)):TC=ABS(T(I+J))
1090 IFZA<1THENZA=0.1
1100 IFTC<1THENTC=0.1
1110 TA=INT(LOG(ZA)/LOG(10))+1:TB=INT(LOG(TC)/LOG(10))+1
1120 PRINTTAB(13-TA)Z(I+J),TAB(28-TB)T(I+J)
1130 NEXTI
1140 IFPEEK(203)<>60THEN1140
1150 J=J+21:GOTO1050
1160 IFPEEK(203)<>60THEN1160
1170 IFE5= 2THEN1190
1180 NEXTK
1190 J=0:I=0:IFE5=1THEN5120
1200 IFE5=2THENE5=1:E6=0
1210 GOTO260
1220 :
1230 REM GRAPHIC
1240 :
1250 IFD<>0THENTX=NX:TY=NY:GOSUB4100:GOTO1920
1260 E2=0:E3=0
1270 PRINT"[147]     ACHSENEINTEILUNG UND EINHEITEN     [146]"
1280 PRINT:PRINT:INPUT"       EINHEIT X-ACHSE";T1$
1290 IFT1$="_"THEN280
1300 PRINT:PRINT:INPUT"       EINHEIT Y-ACHSE";T2$
1310 IFT2$="_"THEN1270
1320 PRINT:PRINT:PRINT:PRINTSPC(12)" EINTEILUNG [146]"
1330 PRINT:PRINT:PRINT:PRINTSPC(14)"MANU  (1)"
1340 PRINT:PRINT:PRINT:PRINTSPC(14)"AUTO  (2)"
1350 GETA$:IFA$="_"THEN1270
1360 A=VAL(A$):IFA=2THENE1=1:GOTO1840
1370 IFA=1THENE1=0:GOTO1390
1380 GOTO1350
1390 PRINT:PRINT:PRINT"[147]             X-ACHSE [146]"
1400 PRINT:PRINT:PRINTSPC(12)"LINEAR    (1)"
1410 PRINT:PRINTSPC(12)"LOGARITH. (2)"
1420 GETA$:IFA$="_"THEN1320
1430 A=VAL(A$):ONAGOTO1440,1560:GOTO1420
1440 INPUT"      MAXIMALWERT";MX$
1450 IFMX$="_"THEN1390
1460 MX=VAL(MX$)
1470 INPUT"      MINIMALWERT";NX$
1480 IFNX$="_"THEN1670
1490 NX=VAL(NX$)
1500 IFNX>MXTHENPRINT:PRINT:PRINT"       FEHLER !":GOTO1440
1510 V=296/(MX-NX):TX=NX
1520 INPUT"      STUFUNG";SX$
1530 IFSX$="_"THEN1470
1540 SX=VAL(SX$)
1550 GOTO1610
1560 INPUT"      MAXIMALWERT";MX$
1570 IFMX$="_"THEN1390
1580 MX=VAL(MX$)
1590 MX=LOG(MX)/LOG(10):SX=1:NX=0:TX=0:V=296/MX
1600 E2=1
1610 PRINT:PRINT:PRINT"[147]             Y-ACHSE "
1620 PRINT:PRINT:PRINTSPC(12)"LINEAR     (1)"
1630 PRINT:PRINTSPC(12)"LOGARITH.  (2)"
1640 GETA$:A=VAL(A$):ONAGOTO1670,1790:GOTO1640
1650 GETA$:IFA$="_"THEN1390
1660 A=VAL(A$):ONAGOTO1670,1790:GOTO1640
1670 INPUT"      MAXIMALWERT";MY$
1680 IFMY$="_"THEN1610
1690 MY=VAL(MY$)
1700 INPUT"      MINIMALWERT";NY$
1710 IFNY$="_"THEN1670
1720 NY=VAL(NY$)
1730 IFNY>=MYTHENPRINT:PRINT:PRINT"       FEHLER !":GOTO1670
1740 W=176/(MY-NY):TY=NY
1750 INPUT"      STUFUNG";SY$
1760 IFSY$="_"THEN1700
1770 SY=VAL(SY$)
1780 GOTO1840
1790 INPUT"       MAXIMALWERT";MY$
1800 IFMY$="_"THEN1390
1810 MY=VAL(MY$)
1820 MY=LOG(MY)/LOG(10):SY=1:NY=0:TY=0:W=176/MY
1830 E3=1
1840 PRINT:PRINT:PRINT"  EINGABE O.K. ?  (J/N)"
1850 GETA$
1860 IFA$="N"THEN1270
1870 IFA$="J"THEN1900
1880 :
1890 GOTO1850
1900 GOSUB4100
1910 :
1920 FORK=1TOAK:G=0:N=N1(K)
1930 :
1940 GOSUB2610
1950 :
1960 IFE1=0THEN2060
1970 MY=INT((MY+MY/10)*100+.5)/100
1980 NY=INT((NY-NY/10)*100+.5)/100
1990 W=INT((176/(MY-NY))*100+.5)/100:TY=NY
2000 SY=INT((MY-NY)*100+.5)/500
2010 MX=X(K,N):NX=X(K,1)
2020 V=INT((296/(MX-NX))*100+.5)/100:TX=NX
2030 SX=INT((MX-NX)*100+.5)/500
2040 E1=0
2050 :
2060 IFK>1THEN2340
2070 d
0,14
2080 d0,0,320,0,1
2090 d320,0,320,200,1
2100 d320,200,0,200,1
2110 d0,200,0,0,1
2120 FORJ= 0TO320STEPSX*V
2130 FORL=184TO0STEP-4
2140 dJ,L,1
2150 NEXTL
2160 IFJ=0THEN2200
2170 T$=STR$(INT(TX*100+.5)/100)
2180 IFE2=1THENT$=STR$(INT(10^TX*100+.5)/100 )
2190 doJ-16,188,T$,1,1,8
2200 TX=TX+SX
2210 NEXTJ
2220 doJ-SX*V*1.8,176,T1$,1,1,8
2230 FORJ=200TO0STEP-SY*W
2240 FORL= 0TO320STEP4
2250 dL,J,1
2260 NEXTL
2270 IFJ=200THEN2310
2280 T$=STR$(INT(TY*100+.5)/100)
2290 IFE3=1THENT$=STR$(INT(10^TY*100+.5)/100)
2300 do0,J+2,T$,1,1,8
2310 TY=TY+SY
2320 NEXTJ
2330 do8,J+SY*W*1.5,T2$,1,1,8
2340 IFE3=0THEN2390
2350 FORJ=1TOG
2360 IFT(J)<1THENT(J)=1
2370 T(J)=LOG(T(J))/LOG(10)
2380 NEXTJ
2390 IFE2=0THEN2440
2400 FORJ=1TOG
2410 IFZ(J)<1THENZ(J)=1
2420 Z(J)=LOG(Z(J))/LOG(10)
2430 NEXTJ
2440 FORI=1TOG-1
2450 Z1=(Z(I)-NX)*V   :Z2=(Z(I+1)-NX)*V
2460 T1=200- (T(I)-NY)*W :T2=200-(T(I+1)-NY)*W
2470 IFZ1<0ORZ2<0ORT1<0ORT2<0ORZ1>320ORZ2>320ORT1>200ORT2>200THEN2490
2480 dZ1,T1,Z2,T2,1
2490 NEXTI
2500 IFE5=2THENE5=1:GOTO2570
2510 NEXTK
2520 IFE5= 1THEN5120
2530 GOTO2570
2540 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINTSPC(9)"DRUCKER EINGESCHALTET ?"
2550 IFPEEK(203)<>60THEN2550
2560 dp2:dw
2570 dp2
2580 IFPEEK(203)<>60THEN2580
2590 dp0:GOTO260
2600 :
2610 REM BERECHNUNG DER INT.POL.STELLEN
2620 :
2630 GOSUB2830
2640 :
2650 FORI=1TON-1
2660 X=X(K,I):Y=Y(K,I):GOSUB3280
2670 IFE1=1THENNY=Y(K,1)
2680 FORX=X(K,I)+SW(K,I)TOX(K,I+1) STEPSW(K,I)
2690 X=INT(X*100+.5)/100
2700 IFX=X(K,I+1)THEN 2750
2710 Y=A(I)+B(I)*(X-X(K,I))+C(I)*(X-X(K,I))^2+D(I)*(X-X(K,I))^3
2720 :
2730 GOSUB3280
2740 :
2750 NEXTX
2760 NEXTI
2770 X=X(K,N):Y=Y(K,N)
2780 :
2790 GOSUB3280
2800 :
2810 RETURN
2820 :
2830 REM KOEFFIZIENTENBERECHNUNG
2840 :
2850 FORI=1TON
2860 A(I)=Y(K,I):NEXTI
2870 C(1)=0:C(N)=0
2880 FORI=1TON-1
2890 H(I)=X(K,I+1)-X(K,I)
2900 NEXTI
2910 :
2920 GOSUB3000
2930 :
2940 FORI=1TON-1
2950 B(I)=(A(I+1)-A(I))/H(I)-H(I)*(C(I+1)+2*C(I))/3
2960 D(I)=(C(I+1)-C(I))/(3*H(I))
2970 NEXTI
2980 RETURN
2990 :
3000 REM KOEFFIZIENTENBERECHNUNG C
3010 REM MATRIX M
3020 :
3030 FORI=2TON-1
3040 M(I,I)=2*(H(I)+H(I+1))
3050 M(I,I+1)=H(I)
3060 M(I+1,I)=H(I)
3070 NEXTI
3080 :
3090 REM VEKTOR V
3100 :
3110 FORJ=2TON-1
3120 V(J)=3*(A(J+1)-A(J))/H(J)-3*(A(J)-A(J-1))/H(J-1)
3130 NEXTJ
3140 :
3150 REM GAUSS
3160 :
3170 O(2)=M(2,2):P(2)=M(2,3)/O(2):Q(2)=V(2)/O(2)
3180 FORI=3TON
3190 O(I)=M(I,I)-M(I,I-1)*P(I-1)
3200 P(I)=M(I,I+1)/O(I)
3210 Q(I)=(V(I)-M(I,I-1)*Q(I-1))/O(I)
3220 NEXTI
3230 FORI=NTO2STEP-1
3240 C(I)=Q(I)-P(I)*C(I+1)
3250 NEXTI
3260 RETURN
3270 :
3280 REM ERGEBNISSE SPEICHERN
3290 :
3300 G=G+1
3310 Z(G)=INT(X*10000+.5)/10000:T(G)=INT(Y*10000+.5)/10000
3320 IFE1=0THEN3350
3330 IFT(G)>MYTHENMY=T(G)
3340 IFT(G)<NYTHENNY=T(G)
3350 RETURN
3360 :
3370 :
3380 REM TAB dw
3390 :
3400 PRINT"[147]":PRINT:PRINT:PRINT:PRINTSPC(9)"DRUCKER EINGESCHALTET ?"
3410 IFPEEK(203)<>60THEN3410
3420 OPEN4,4
3430 FORK=1TOAK:N=N1(K):G=0:E6=2:GOSUB2610
3440 PRINT#4,CHR$(18)"  KURVE "K"         X              Y       "
3450 FORI=1TOG
3460 PRINT#4,CHR$(146)CHR$(16)"18"Z(I)  CHR$(16)"33"T(I)
3470 NEXTI
3480 IFE5<>0THEN3500
3490 NEXTK
3500 IFE5=1THEN5120
3510 IFE5=2THENE5=1:E6=0
3520 CLOSE4:GOTO280
3530 :
3540 REM EINGABE TAPE dr
3550 :
3560 D=1:GOTO3580
3570 D=8
3580 PRINT"[147]"
3590 FORI=1TO6:PRINT:NEXTI
3600 IFD=1THENPRINTSPC(6)"RECORDER O.K. ?"
3610 IFD=8THENPRINTSPC(6)"FLOPPY O.K. ?"
3620 PRINT:PRINT:INPUT"       FILENAME";N$
3630 IFN$="_"THEN150
3640 PRINT:PRINT
3650 OPEN1,D,0, N$:OPEN2,8,15:INPUT#2,F,B$
3660 IFF=0THEN3700
3670 PRINT"[147]  FEHLER: "B$:CLOSE2:CLOSE1:dJ"$
3680 [161]A$:[139]A$[179][177]""[167][153]"LOAD":[137]3620
3690 [137]3680
3700 [132]1,AK,SW,DI
3710 [132]1,T1$,MX,NX,V,TX,SX,E2
3720 [132]1,T2$,MY,NY,W,TY,SY,E3
3730 [129]K[178]1[164]AK
3740 [132]1,N1(K)
3750 [139]N1(K)[177]N1[167]N1[178]N1(K)
3760 [130]K
3770 N1[178]N1[170]1
3780 [134]X(AK,N1),Y(AK,N1),SW(K,N1)
3790 [134]A(N1),B(N1),C(N1),D(N1),M(N1,N1),V(N1),O(N1),P(N1),Q(N1)
3800 [129]K[178]1[164]AK
3810 [129]I[178]1[164]N1(K)
3820 [132]1,X(K,I),Y(K,I):[132]1,SW(K,I)
3830 [130]I
3840 [130]K
3850 [160]1:[160]2:[134]Z(DI[170]3),T(DI[170]3):[137]260
3860 :
3870 [143] AUSGABE TAPE dr
3880 :
3890 D[178]1:[137]3910
3900 D[178]8
3910 [153]"LOAD"
3920 [129]I[178]1[164]6:[153]:[130]I
3930 [139]D[178]1[167][153][166]6)"RECORDER O.K. ?"
3940 [139]D[178]8[167][153][166]6)"FLOPPY O.K. ?"
3950 [153]:[153]:[133]"       FILENAME";N$
3960 [159]1,D,1,N$
3970 [152]1,AK:[152]1,SW:[152]1,DI:[152]1,T1$
3980 [152]1,MX:[152]1,NX:[152]1,V:[152]1,NX:[152]1,SX:[152]1,E2
3990 [152]1,T2$:[152]1,MY:[152]1,NY:[152]1,W:[152]1,NY
4000 [152]1,SY:[152]1,E3
4010 [129]K[178]1[164]AK:[152]1,N1(K):[130]K
4020 [129]K[178]1[164]AK
4030 [129]I[178]1[164]N1(K)
4040 [152]1,X(K,I):[152]1,Y(K,I):[152]1,SW(K,I)
4050 [130]I:[130]K
4060 [160]1:[137]280
4070 :
4080 [143] do
4090 :
4100 [153]"LOAD           SPLINE BERECHNUNG            WAIT"
4110 [129]I[178]1[164]10:[153]:[130]I
4120 [153][166]13)"BITTE WARTEN"
4130 [142]
4140 :
4150 :
4160 [143] BUBBLESORT
4170 :
4180 [129]O[178]2[164]N1(I)
4190 [129]P[178]N1(I)[164]O[169][171]1
4200 [139]X(I,P[171]1)[177]X(I,P)[167]4220
4210 [137]4250
4220 H[178]X(I,P):Q[178]Y(I,P)
4230 X(I,P)[178]X(I,P[171]1):Y(I,P)[178]Y(I,P[171]1)
4240 X(I,P[171]1)[178]H:Y(I,P[171]1)[178]Q
4250 [130]P
4260 [130]O
4270 [142]
4280 :
4290 :
4300 [143] AUSGABE DATENFILE
4310 :
4320 [153]:[153]:[153][166]14)"TAPE (1)"
4330 [153]:[153][166]14)"DISK (2)"
4340 [161]A$:A[178][197](A$):[145]A[137] 4350,4360:[137]4340
4350 D[178]1:[137]4370
4360 D[178]8
4370 [153]"LOAD"
4380 [129]J[178]1[164]6:[153]:[130]J
4390 [139]D[178]1[167][153][166]6)"RECORDER O.K. ?"
4400 [139]D[178]8[167][153][166]6)"FLOPPY O.K. ?"
4410 [153]:[153]:[133]"       FILENAME ";N$
4420 [159]1,D,1,N$
4430 [152]1,SW:[152]1,DI:[152]1,N1(I)
4440 [129]K[178]1[164]N1(I)
4450 [152]1,X(I,K):[152]1,Y(I,K):[152]1,SW(I,K)
4460 [130]K
4470 [159]2,8,15:[132]2,F,B$
4480 [139] F[178]0[167]4500
4490 [153]"LOAD  FEHLER: "B$:[160]2:[160]1:[137]4410
4500 [160]2:[160]1:D[178]0:[137]890
4510 :
4520 :
4530 [143] EINGABE DATENFILE
4540 :
4550 D[178]1:[137]4570
4560 D[178]8
4570 [153]"LOAD"
4580 [129]J[178]1[164]6:[153]:[130]J
4590 [139]D[178]1[167][153][166]12)"RECORDER O.K. ?"
4600 [139]D[178]8[167][153][166]12)"FLOPPY O.K. ?"
4610 [161]A$:[139]A$[178]""[167]4610
4620 [153]"LOAD":[153]:[133]"       ANZAHL DATENFILES";AK$
4630 [139]AK$[178]"_"[167]150
4640 AK[178][197](AK$)
4650 [134]N$(AK):[153]
4660 [129]J[178]1[164]AK
4670 [139]J[179][178]0[167][138]
4680 [153]:[153]"       FILENAME";J:[133]"ON";N$(J)
4690 [139]N$(J)[178]"_"[167]J[178]J[171]2:[130]J
4700 [130]J
4710 [129]J[178]1[164]AK
4720 [159]1,D,0,N$(J):[159]2,8,15:[132]2,F,B$
4730 [139]F[178]0[167]4770
4740 [153]"LOAD  FEHLER: "B$:[160]2:[160]1:dJ"$
4750 GETA$:IFA$<>""THENPRINT"[147]":GOTO4660
4760 GOTO4750
4770 INPUT#1,SW,DE,N1(J)
4780 IFN1(J)>N1THENN1=N1(J)
4790 CLOSE1:CLOSE2:NEXTJ
4800 N1=N1+1
4810 DIMX(AK,N1),Y(AK,N1),SW(AK,N1)
4820 DIMA(N1),B(N1),C(N1),D(N1),H(N1),M(N1,N1),V(N1),O(N1),P(N1),Q(N1)
4830 FORJ=1TOAK
4840 OPEN1,D,0,N$(J)
4850 INPUT#1,SW,DE,N1(J)
4860 IFDE>DITHENDI=DE
4870 FORK=1TON1(J)
4880 INPUT#1,X(J,K),Y(J,K),SW(J,K)
4890 NEXTK:CLOSE1
4900 NEXTJ:IFZW>DITHENDI=ZW
4910 DIMZ(DI+3),T(DI+3):D=0:GOTO260
4920 :
4930 REM VERGLEICH FKT - SPL
4940 :
4950 PRINT"[147]":PRINT:PRINT:INPUT"     FUNKTION F(X)=";F$
4960 IFF$="_"THENRUN
4970 PRINT"[147][155]5140 DEFFNF(X)="F$
4980 PRINT"GOTO5000"
4990 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
5000 PRINT"[147][144]             FUNKTIONSDATEN             [146]"
5010 PRINT:PRINT:INPUT"  ANFANGS X-WERT";XA$
5020 IFXA$="_"THEN4950
5030 XA=VAL(XA$)
5040 PRINT:PRINT:INPUT"  END X-WERT";XE$
5050 IFXE$="_"THEN5010
5060 XE=VAL(XE$)
5070 PRINT:PRINT:INPUT"  ANZAHL ZWISCHENWERTE";ZW$
5080 IFZW$="_"THEN5040
5090 ZW=VAL(ZW$)
5100 SV=(XE-XA)/ZW:E5=1
5110 GOTO130
5120 G=0:E5=2
5130 FORX=XATOXE+.0001STEPSV
5140 DEFFNF(X)=X+2
5150 Y=FNF(X):GOSUB3300
5160 NEXTX
5170 IFE6=1THEN1050
5180 IFE6=2THEN3440
5190 GOTO2340